home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD038B.D64 / overdrive .exe / overdrive .a7ae (.txt)
Encoding:
Commodore BASIC  |  2019-04-13  |  15.8 KB  |  545 lines
  1. 2 PRINT"[147]":POKE53280,5:POKE53281,0
  2. 3 PRINT"GREETINGS TO:"
  3. 4 PRINT"[159]QHAWK, SYSOP FM, THOMAST2, BONNIE,"
  4. 5 PRINT"DJSENTERP, DICKA2, KEL, EXPLOITED3,"
  5. 6 PRINT"CNET REP, QGUIDE SAS, IANT, THE RAD"
  6. 7 PRINT"HEAVY METAL BANDS, AND ALL THE OTHER"
  7. 8 PRINT"COOL QLINKERS I FORGOT TO MENTION.":PRINT"HIT ANY KEY"
  8. 9 POKE53280,5:POKE53280,6:POKE53280,4:GETA$:IFA$=""THEN9
  9. 10 POKE53280,0:POKE53281,0:DIMI$(13,13)
  10. 15 FORI=54272TO54296:POKEI,0:NEXT
  11. 20 PRINT"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  12. 30 PRINT"[180]"SPC(38)"[170]";
  13. 40 PRINT"[180][146]   M A X I M U M  O V E R D R I V E   [170]";
  14. 50 PRINT"[180]"SPC(38)"[170]";
  15. 60 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  16. 70 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  17. 80 FORI=1TO11:PRINT"[180]"SPC(38)"[170]";:NEXT
  18. 90 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  19. 92 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  20. 94 PRINT"[180]"SPC(38)"[170]";
  21. 95 PRINT"[180][146]  BY DIGIDAN              SELECT A-R[146]  [170]";
  22. 96 PRINT"[180]"SPC(38)"[170]";
  23. 98 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  24. 100 PRINT"[145][145][145][146]"
  25. 110 PRINT"[154][176][192][174]"
  26. 120 PRINT"[145][221]A[221]":PRINT"[221]B[221]":PRINT"[145][221]C[221]":PRINT"[221]D[221]":PRINT"[145][221]E[221]"
  27. 130 PRINT"[221]F[221]";:PRINT"[157][157][157][221]G[221]":PRINT"[221]H[221]":PRINT"[145][221]I[221]":PRINT"[173][192][189]"
  28. 140 PRINT"[145][145][145][145][145][145][145][145][145][145][145][159]INSULTING":PRINT"DESTRUCTION"
  29. 150 PRINT"[145]UNRESPONSIVE":PRINT"WAKE UP":PRINT"[145]128 LOOK-ALIKE"
  30. 160 PRINT"INTRUDER ALERT":PRINT"[145]FLATTERING"
  31. 170 PRINT"TWILIGHT ZONE":PRINT"[145]BYTE THIEF"
  32. 180 PRINT"[145][145][145][145][145][145][145][145][145][145]"TAB(21)"[154][176][192][174]"
  33. 190 PRINTTAB(21)"[145][221]J[221]":PRINTTAB(21)"[221]K[221]":PRINTTAB(21)"[145][221]L[221]"
  34. 200 PRINTTAB(21)"[221]M[221]":PRINTTAB(21)"[145][221]N[221]":PRINTTAB(21)"[221]O[221]"
  35. 210 PRINTTAB(21)"[145][221]P[221]":PRINTTAB(21)"[221]Q[221]":PRINTTAB(21)"[145][221]R[221]"
  36. 220 PRINTTAB(21)"[173][192][189]"
  37. 230 PRINTTAB(25)"[145][145][145][145][145][145][145][145][145][145][145][159]MALFUNCTION"
  38. 240 PRINTTAB(25)"MESSENGER":PRINTTAB(25)"[145]SELF CONTROL"
  39. 250 PRINTTAB(25)"NORAD":PRINTTAB(25)"[145]FRUSTRATING":PRINTTAB(25)"SCREEN QUAKE"
  40. 260 PRINTTAB(25)"[145][158]DISABLE STOP"
  41. 270 PRINTTAB(25)"INSTRUCTIONS"
  42. 280 PRINTTAB(25)"[145]QUIT":C=1
  43. 290 GETA$:GOSUB7000:IFA$=""THEN290
  44. 300 IFA$="Q"THEN500
  45. 302 IFA$="R"THENPOKE53280,14:POKE53281,6:PRINT"[147][154]";:END
  46. 304 IFA$="A"THEN900
  47. 305 IFA$="B"THEN1600
  48. 306 IFA$="C"THEN1950
  49. 307 IFA$="D"THEN2150
  50. 308 IFA$="E"THEN2400
  51. 309 IFA$="F"THEN2540
  52. 310 IFA$="G"THEN2750
  53. 311 IFA$="H"THEN3000
  54. 312 IFA$="I"THEN3250
  55. 313 IFA$="J"THEN4000
  56. 314 IFA$="K"THEN4350
  57. 315 IFA$="L"THEN4500
  58. 316 IFA$="M"THEN4800
  59. 317 IFA$="N"THEN5200
  60. 318 IFA$="O"THEN5400
  61. 319 IFA$="P"THEN6000
  62. 499 GOTO290
  63. 500 PRINT"[147][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  64. 510 FORI=1TO16:PRINT"[180]"SPC(38)"[170]";
  65. 520 NEXT:PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  66. 530 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  67. 535 PRINT"[180]"SPC(38)"[170]";
  68. 540 PRINT"[180][146]  INSTRUCTIONS           HIT ANY KEY[146]  [170]";
  69. 545 PRINT"[180]"SPC(38)"[170]";
  70. 550 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  71. 560 PRINT"[146][154]THIS PROGRAM IS DESIGNED FOR HAVING"
  72. 570 PRINT"[145]SOME TOTALLY RAD FUN.  THERE ARE 15"
  73. 580 PRINT"DIFFERENT FAKING MODES.  EACH OF"
  74. 590 PRINT"[145]THESE BEGIN BY SIMULATING THE BASIC"
  75. 600 PRINT"ENVIRONMENT.  AFTER THAT, SOMETHING"
  76. 610 PRINT"[145]STRANGE WILL HAPPEN.. DEPENDING ON"
  77. 620 PRINT"WHICH MODE YOU SELECTED."
  78. 630 PRINT"IT IS SUGGESTED THAT YOU SELECT A"
  79. 640 PRINT"[145]FAKING MODE, LEAVE THE COMPUTER ON,"
  80. 650 PRINT"AND WAIT UNTIL SOMEONE TRIES TO USE"
  81. 660 PRINT"[145]IT.  THAT'S WHERE THE FUN PART"
  82. 670 PRINT"COMES IN.  FOR THE FIRST TIME YOU"
  83. 680 PRINT"[145]CAN WATCH YOUR FRIEND JUMP 40 FEET."
  84. 685 GOTO720
  85. 690 GETA$:IFA$=""THEN690
  86. 700 PRINT"":FORI=1TO7:PRINT"                                    ":NEXT
  87. 705 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  88. 706 FORI=1TO7:PRINT"                                    [145]":NEXT
  89. 710 RETURN
  90. 720 GOSUB690
  91. 730 PRINT"AFTER YOU SELECT A FAKING MODE,"
  92. 740 PRINT"[145]IT WILL DESCRIBE WHAT IT DOES AND"
  93. 750 PRINT"ALLOW YOU TO EITHER USE IT OR"
  94. 760 PRINT"[145]RETURN TO THE MAIN MENU."
  95. 770 PRINT"THIS PROGRAM WAS WRITTEN BY DAN"
  96. 780 PRINT"KOMAROMI OF [158]DIGITAL WIZARD CO.[154]"
  97. 790 PRINT"[145]SPECIAL THANKS TO 'QHAWK' OF THE"
  98. 800 PRINT"CLARK COUNTY COMMODORE COMPUTER"
  99. 810 PRINT"[145]CLUB FOR HAVING THE BEST USER GROUP"
  100. 820 PRINT"IN THE WORLD.. AND TO 'SYSOP FM'"
  101. 830 PRINT"[145]FROM QUANTUM LINK FOR DOING SUCH"
  102. 840 PRINT"A TOTALLY RADICAL JOB WITH THE"
  103. 850 PRINT"[145]SOFTWARE LIBRARIES."
  104. 851 GOSUB690:PRINT"IF YOU LIKE THIS PROGRAM, OR HAVE"
  105. 852 PRINT"[145]ANY COMMENTS OR SUGGESTIONS, PLEASE"
  106. 853 PRINT"SEND A POSTCARD TO:"
  107. 854 PRINT"DAN KOMAROMI":PRINT"[145]251 ALTURA DR.":PRINT"FULLERTON, CA"
  108. 855 PRINT"[145]92635"
  109. 856 PRINT"REMEMBER THAT THIS PROGRAM IS IN"
  110. 857 PRINT"THE PUBLIC DOMAIN.  I ENCOURAGE"
  111. 858 PRINT"[145]YOU TO SPREAD THIS AROUND TO ALL"
  112. 859 PRINT"OF YOUR FRIENDS FREE OF CHAGRE."
  113. 860 PRINT"[145]LATER, DUDE!"
  114. 861 GETA$:IFA$=""THEN861
  115. 870 RUN10
  116. 900 GOTO937
  117. 902 PRINT"[147][153][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  118. 904 FORI=1TO16:PRINT"[180]"SPC(38)"[170]";:NEXT
  119. 906 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  120. 908 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  121. 910 FORI=1TO3:PRINT"[180]"SPC(38)"[170]";:NEXT
  122. 920 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  123. 930 PRINT"[145][145][145][146]U=USE[146]                       M=MENU"
  124. 932 RETURN
  125. 937 GOSUB902:PRINTTAB(11)"[145][145]C=CHANGE INSULTS"
  126. 940 PRINT"[154]THIS WILL CAUSE YOUR COMPUTER TO"
  127. 950 PRINT"[145]INSULT THE USER WHENEVER A COMMAND"
  128. 960 PRINT"IS TYPED."
  129. 962 PRINT"EFFECTIVE COMMANDS:[159] LOAD, SAVE,"
  130. 964 PRINT"[145]PRINT, POKE, PEEK, LIST, RUN, NEW,"
  131. 966 PRINT"RESTORE, AND CLR."
  132. 980 PRINT"[158]PRESS 'C' TO MODIFY THE INSULTS,"
  133. 990 PRINT"[145]OR 'U' TO USE THE BUILT-IN ONES."
  134. 992 PRINT"TYPE [150]FINISH TO END."
  135. 1000 GETA$:IFA$=""THEN1000
  136. 1010 IFA$="M"THENRUN10
  137. 1020 IFA$="C"THEN1050
  138. 1030 IFA$="U"THENSKP=5:GOTO1120
  139. 1040 GOTO1000
  140. 1050 PRINT"[147]":PRINT"[156][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  141. 1060 PRINT"[180]"SPC(38)"[170]";
  142. 1070 PRINT"[180][146]           CHANGE INSULTS             [156][170]";
  143. 1080 PRINT"[180]"SPC(38)"[170]";
  144. 1090 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  145. 1100 PRINT"[146][F1] [155]FORWARD  [F2] [155]REVERSE"
  146. 1110 PRINT"[F5] [155]CHANGE   [F7] [155]DONE"
  147. 1120 FORI=1TO13:READA$:READB$:I$(I,0)=A$:I$(I,1)=B$:NEXT:TN=1:IFSKP=5THEN1380
  148. 1130 DATA "LOAD","LOAD IT YOURSELF!"
  149. 1140 DATA "SAVE","WHY DON'T YOU DO IT INSTEAD?"
  150. 1150 DATA "PRINT","ISN'T PAPER GOOD ENOUGH FOR YOU?"
  151. 1160 DATA "LIST","THE LIST IS IN YOUR POCKET YOU FOOL"
  152. 1170 DATA "RUN","YOU RUN, WEAKLING!"
  153. 1180 DATA "POKE","GO POKE SOMEONE YOUR OWN SIZE"
  154. 1190 DATA "PEEK","GOT A STARING PROBLEM?"
  155. 1200 DATA "NEW","THINK YOU CAN ERASE ME, HUH?"
  156. 1210 DATA "CLR","CAN'T YOU SPELL OUT THE WHOLE THING?"
  157. 1220 DATA "RESTORE","IT'S YOUR BRAIN THAT NEEDS RESTORING"
  158. 1230 DATA "NO","YES!!"
  159. 1240 DATA "YES","NO!!"
  160. 1250 DATA "FU","DIDN'T YOU HAVE ENOUGH LAST NIGHT?"
  161. 1260 PRINT"[158]#"TN"[157] "
  162. 1270 PRINT"[155]"I$(TN,0);:FORI=1TO38-LEN(I$(TN,0)):PRINT" ";:NEXT
  163. 1280 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  164. 1290 PRINT"[155]"I$(TN,1);:FORI=1TO38-LEN(I$(TN,1)):PRINT" ";:NEXT
  165. 1300 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  166. 1310 GETX$:IFX$="[133]"THENTN=TN+1:POKE54296,15:POKE54296,0:IFTN>10THENTN=10
  167. 1320 IFX$="[134]"THENTN=TN-1:POKE54296,15:POKE54296,0:IFTN<1THENTN=1
  168. 1330 IFX$="[135]"THEN1360
  169. 1340 IFX$="[136]"THEN1380
  170. 1350 GOTO1260
  171. 1360 POKE19,54:PRINT"";:FORI=1TO80:PRINT" ";:NEXT
  172. 1370 PRINT"";:INPUTN$:I$(TN,1)=N$:GOTO1260
  173. 1380 GOTO1399
  174. 1381 POKE53280,14:POKE53281,6:PRINT"[147][154]**** COMMODORE 64 BASIC V2 ****"
  175. 1390 PRINT" 64K RAM SYSTEM  38911 BASIC BYTES FREE":SKP=0:RETURN
  176. 1399 GOSUB1381
  177. 1400 PRINT"READY."
  178. 1410 POKE19,54:INPUTA$:IFA$=""THENPRINT
  179. 1420 IFLEFT$(A$,4)="LOAD"THENPRINT:PRINT:PRINTI$(1,1):GOTO1400
  180. 1430 IFLEFT$(A$,4)="SAVE"THENPRINT:PRINT:PRINTI$(2,1):GOTO1400
  181. 1440 IFLEFT$(A$,5)="PRINT"THENPRINT:PRINT:PRINTI$(3,1):GOTO1400
  182. 1450 IFLEFT$(A$,4)="LIST"THENPRINT:PRINT:PRINTI$(4,1):GOTO1400
  183. 1460 IFLEFT$(A$,3)="RUN"THENPRINT:PRINT:PRINTI$(5,1):GOTO1400
  184. 1470 IFLEFT$(A$,4)="POKE"THENPRINT:PRINT:PRINTI$(6,1):GOTO1400
  185. 1480 IFLEFT$(A$,4)="PEEK"THENPRINT:PRINT:PRINTI$(7,1):GOTO1400
  186. 1490 IFLEFT$(A$,3)="NEW"THENPRINT:PRINT:PRINTI$(8,1):GOTO1400
  187. 1500 IFLEFT$(A$,3)="CLR"THENPRINT:PRINT:PRINTI$(9,1):GOTO1400
  188. 1510 IFLEFT$(A$,7)="RESTORE"THENPRINT:PRINT:PRINTI$(10,1):GOTO1400
  189. 1520 IFLEFT$(A$,2)="NO"THENPRINT:PRINT:PRINTI$(11,1):GOTO1400
  190. 1530 IFLEFT$(A$,3)="YES"THENPRINT:PRINT:PRINTI$(12,1):GOTO1400
  191. 1540 IFLEFT$(A$,2)="FU"THENPRINT:PRINT:PRINTI$(13,1):GOTO1400
  192. 1550 IFVAL(LEFT$(A$,2))>0THENPRINT:GOTO1410
  193. 1555 IFA$="FINISH"THENPRINT:PRINT:PRINT"[147][147]":POKE19,0:RUN10
  194. 1560 IFA$<>""THENPRINT:PRINT:PRINT"?SYNTAX  ERROR":GOTO1400
  195. 1580 GOTO1410
  196. 1600 GOSUB902
  197. 1610 PRINT"[150]SELF DESTRUCTION..."
  198. 1620 PRINT"HAVE YOU EVER SEEN A COMPUTER"
  199. 1630 PRINT"[145]DEMOLISH ITSELF?  WELL, YOU'RE"
  200. 1640 PRINT"UNSUSPECTING FRIEND WILL."
  201. 1660 PRINT"[158]THIS WILL MAKE IT SEEM LIKE YOUR"
  202. 1670 PRINT"[145]COMMODORE IS SUICIDAL."
  203. 1675 PRINT"[156]TURN UP YER VOLUME!"
  204. 1680 GETA$:IFA$=""THEN1680
  205. 1690 IFA$="M"THENRUN10
  206. 1695 IFA$="U"THEN1700
  207. 1697 GOTO1680
  208. 1700 GOSUB1381
  209. 1710 PRINT"READY."
  210. 1720 POKE19,54:INPUTA$
  211. 1730 PRINT:PRINT"?SUPER SYNTAX ERROR"
  212. 1740 FORD=1TO200:POKE54296,15:POKE54296,0:NEXT
  213. 1750 PRINT"[147]":POKE53280,0:POKE53281,0
  214. 1760 PRINT"SELF DESTRUCTION  00 % COMPLETE"
  215. 1770 FORI=1TO99:PRINT"[154]"I
  216. 1780 PRINT""TAB(16)"[158]DANGER[146]";
  217. 1785 PRINT""TAB(16)"DANGER[146]";
  218. 1790 FORD=1TO5:POKE54296,15:POKE54296,0:NEXT:NEXT
  219. 1800 PRINT"[147]"
  220. 1801 FORR=54272TO54296:POKER,0:NEXT
  221. 1802 POKE54296,15:POKE54277,0
  222. 1803 POKE54278,240:POKE54275,8
  223. 1804 POKE54276,65:POKE54272,237
  224. 1805 POKE54273,50
  225. 1810 POKE53296,15:FORI=1TO250
  226. 1820 POKE53280,11:POKE53280,12
  227. 1830 POKE53280,6:POKE53280,4
  228. 1840 POKE53280,14:POKE53280,0
  229. 1850 POKE53280,6:POKE53280,0
  230. 1860 NEXT:POKE53296,0
  231. 1870 POKE53281,1:POKE53280,1:FORD=1TO100:NEXT
  232. 1880 POKE53281,15:POKE53280,15:FORD=1TO100:NEXT:GOSUB1930
  233. 1890 POKE53281,12:POKE53280,12:FORD=1TO100:NEXT:GOSUB1930
  234. 1900 POKE53281,11:POKE53280,11:FORD=1TO100:NEXT:GOSUB1930
  235. 1910 POKE53281,0:POKE53280,0:FORD=1TO100:NEXT:GOSUB1930
  236. 1920 PRINT"[147][144]":POKE54296,0:END
  237. 1930 POKE54273,PEEK(54272)/2:FORD=1TO10:NEXT:RETURN
  238. 1950 GOSUB902
  239. 1960 PRINT"THIS IS GUARANTEED TO FOOL EVEN"
  240. 1970 PRINT"[145]THE MOST INTELLIGENT OF ALL NERDS."
  241. 1980 PRINT"[158]THEY WILL THINK THEY'RE COMMODORE"
  242. 1990 PRINT"IS BROKEN.  HAVE PLENTY OF TISSUE"
  243. 2000 PRINT"[145]PAPER READY."
  244. 2010 PRINT"[156]THIS JUST MAKES YOUR COMPUTER"
  245. 2020 PRINT"IGNORE EVERYTHING YOU TYPE.  IT"
  246. 2030 PRINT"[145]IS SIMPLE BUT EFFECTIVE."
  247. 2040 GETA$:IFA$=""THEN2040
  248. 2050 IFA$="M"THENRUN10
  249. 2060 IFA$="U"THEN2080
  250. 2070 GOTO2040
  251. 2080 GOSUB1381:PRINT"READY."
  252. 2100 POKE19,54:INPUTA$
  253. 2110 PRINT:GOTO2100
  254. 2150 GOSUB902
  255. 2160 PRINT"FOR THE FIRST TIME, YOUR C64"
  256. 2170 PRINT"[145](OR C128) IS GETTING SLEEPY. SEE"
  257. 2180 PRINT"WHAT HAPPENS WHEN THE UNSUSPECTING"
  258. 2190 PRINT"[145]USER TRIES TO WAKE IT UP."
  259. 2200 PRINT"[153]ZZZZZZZZZZZZZZZZZ"
  260. 2210 GETA$:IFA$=""THEN2210
  261. 2220 IFA$="M"THENRUN10
  262. 2230 IFA$="U"THEN2250
  263. 2240 GOTO2210
  264. 2250 GOSUB1381
  265. 2260 PRINT"READY."
  266. 2270 POKE19,54:INPUTA$
  267. 2280 PRINT:PRINT"DON'T WAKE ME UP.  I'M SLEEPING."
  268. 2290 PRINT"READY."
  269. 2300 POKE19,54:INPUTA$
  270. 2310 PRINT:PRINT"I SAID TO LEAVE ME ALONE!"
  271. 2320 PRINT"READY."
  272. 2330 POKE19,54:INPUTA$
  273. 2340 PRINT:PRINT"GOODNIGHT, I'M TURNING THE LIGHTS OFF!"
  274. 2350 FORD=1TO3000:NEXT
  275. 2360 POKE53280,15:POKE53281,15
  276. 2370 FORD=1TO100:NEXT:POKE53280,12:POKE53281,12:FORD=1TO100:NEXT
  277. 2380 POKE53280,11:POKE53281,11:FORD=1TO100:NEXT:POKE53280,0:POKE53281,0
  278. 2390 PRINT"[144][147]":END
  279. 2400 GOSUB902
  280. 2410 PRINT"[150]THIS WILL MAKE YOUR C64 SCREEN"
  281. 2420 PRINT"[145]LOOK EXACTLY LIKE A C128 SCREEN,"
  282. 2430 PRINT"BUT ACTUALLY BE IN C64 MODE."
  283. 2432 PRINT"[156]AFTER THE 'STARTUP' MESSAGE IS"
  284. 2433 PRINT"[145]DISPLAYED, THIS PROGRAM WILL END"
  285. 2434 PRINT"SO BE CAREFUL WHAT KIND OF DISK"
  286. 2435 PRINT"[145]COMMANDS YOU USE."
  287. 2440 GETA$:IFA$=""THEN2440
  288. 2450 IFA$="M"THENRUN10
  289. 2460 IFA$="U"THEN2480
  290. 2470 GOTO2440
  291. 2480 PRINT"[147]":POKE53280,13:POKE53281,11
  292. 2490 PRINT"[153] COMMODORE BASIC V7.0 122365 BYTES FREE"
  293. 2500 PRINT"   (C)1985 COMMODORE ELECTRONICS, LTD."
  294. 2510 PRINT"        (C)1977 MICROSOFT CORP."
  295. 2520 PRINT"          ALL RIGHTS RESERVED"
  296. 2530 END
  297. 2540 GOSUB902
  298. 2550 PRINT"WITH 'INTRUDER ALERT', YOU CAN"
  299. 2560 PRINT"[145]MAKE SURE EVERYONE KEEPS FAR"
  300. 2570 PRINT"AWAY FROM YOUR COMPUTER."
  301. 2580 PRINT"[158]YOU CAN MAKE UP SOME WILD STORY"
  302. 2590 PRINT"[145]EXPLAINING YOUR NEW SECURITY"
  303. 2600 PRINT"SYSTEM."
  304. 2602 PRINT"[159]TURN THE VOLUME WAY UP!"
  305. 2610 GETA$:IFA$=""THEN2610
  306. 2620 IFA$="M"THENRUN10
  307. 2630 IFA$="U"THEN2650
  308. 2640 GOTO2610
  309. 2650 GOSUB1381
  310. 2660 PRINT"READY."
  311. 2670 POKE19,54:INPUTA$:FORI=54272TO54296:POKEI,0:NEXT:POKE54272,12
  312. 2671 PRINT"[147]"TAB(12)"INTRUDER ALERT!!"
  313. 2672 POKE54296,15:POKE54277,0:POKE54278,240:POKE54275,8:POKE54276,65
  314. 2674 POKE54273,1
  315. 2680 POKE53280,0:POKE53281,0
  316. 2690 FORI=1TO100:POKE54273,I:NEXT
  317. 2700 POKE53280,2:POKE53281,2
  318. 2710 FORI=100TO1STEP-1:POKE54273,I:NEXT
  319. 2720 GOTO2680
  320. 2750 GOSUB902
  321. 2760 PRINT"[159]THERE IS NOTHING WORSE THAN A"
  322. 2770 PRINT"[145]COMPUTER TRYING TO FLIRT WITH YOU."
  323. 2780 PRINT"[150]TRY THIS ONE ON YOUR FRIENDS AND"
  324. 2790 PRINT"THEY WILL BE IN FOR A BIG SURPRISE!"
  325. 2800 GETA$:IFA$=""THEN2800
  326. 2810 IFA$="M"THENRUN10
  327. 2820 IFA$="U"THEN2840
  328. 2830 GOTO2800
  329. 2840 GOSUB1381
  330. 2850 PRINT"READY."
  331. 2860 POKE19,54:INPUTA$
  332. 2870 PRINT:PRINT"MY, WHAT BEUTIFUL FINGERS YOU HAVE!":PRINT"READY."
  333. 2880 POKE19,54:INPUTA$
  334. 2890 PRINT:PRINT"I LOVE THE WAY YOU STROKE MY KEYS!":PRINT"READY."
  335. 2900 POKE19,54:INPUTA$
  336. 2910 PRINT:PRINT"TOUCH ME LIKE THAT AGAIN PLEASE":PRINT"READY."
  337. 2920 POKE19,54:INPUTA$
  338. 2930 PRINT:PRINT"YES, I LOVE YOU TOO":PRINT"READY."
  339. 2940 POKE19,54:INPUTA$
  340. 2950 PRINT:PRINT"BYE DEAR, TALK TO YOU LATER, EH?"
  341. 2960 POKE19,0:END
  342. 3000 GOSUB902
  343. 3010 PRINT"[156]YOU ARE ABOUT TO ENTER A"
  344. 3020 PRINT"[145]DIFFERENT DIMENSION - NOT ONLY"
  345. 3030 PRINT"OF SIGHT AND SOUND BUT OF MISCHIEF."
  346. 3040 PRINT"[158]DOO DE DO DA..."
  347. 3050 GETA$:IFA$=""THEN3050
  348. 3060 IFA$="M"THENRUN10
  349. 3070 IFA$="U"THEN3090
  350. 3080 GOTO3050
  351. 3090 GOSUB1381
  352. 3100 PRINT"READY."
  353. 3102 FORR=54272TO54296:POKER,0:NEXT
  354. 3103 POKE54296,15:POKE54277,0:POKE54278,240:POKE54275,8:POKE54276,65
  355. 3104 POKE54272,12
  356. 3110 POKE19,54:INPUTA$
  357. 3120 FORI=1TO25:PRINT:NEXT
  358. 3130 PRINT"[147]":POKE53280,0:POKE53281,0
  359. 3140 A$="YOU HAVE JUST ENTERED THE TWILIGHT ZONE!"
  360. 3150 PRINT""
  361. 3160 FORI=1TOLEN(A$):PRINTMID$(A$,I,1);:FORD=1TO100:NEXT:POKE54273,255
  362. 3170 POKE54273,200:NEXT
  363. 3180 FORI=255TO0STEP-1:POKE54273,I:NEXT
  364. 3200 POKE54273,50:FORI=1TO50:POKE53280,0:POKE53280,5:NEXT
  365. 3210 POKE54273,60:FORI=1TO50:POKE53280,0:POKE53280,6:NEXT
  366. 3220 POKE54273,70:FORI=1TO50:POKE53280,0:POKE53280,2:NEXT:POKE53280,0
  367. 3230 FORXX=54272TO54295:POKEXX,0:NEXT:POKE54296,15:POKE54277,8:POKE54278,255
  368. 3231 POKE54276,23:YY=4:FORZZ=1TO3:POKE54287,YY:FORXX=1TO150:POKE54273,XX
  369. 3232 POKE53280,6:POKE53280,5:YY=YY+.01:NEXT:NEXT:POKE54278,15
  370. 3233 GOTO3230
  371. 3250 GOSUB902
  372. 3260 PRINT"[154]ARE YOU GETTING SICK OF ALWAYS"
  373. 3270 PRINT"[145]SEEING 38911 BYTES FREE?"
  374. 3280 PRINT"[158]THIS WILL GET RID OF 'EM."
  375. 3290 GETA$:IFA$=""THEN3290
  376. 3300 IFA$="M"THENRUN10
  377. 3310 IFA$="U"THEN3330
  378. 3320 GOTO3290
  379. 3330 GOSUB1381:PRINT"READY."
  380. 3340 POKE19,54:INPUTA$
  381. 3345 PRINT:PRINT"OUCH!!  DON'T HIT MY KEYBOARD SO HARD!!"
  382. 3350 PRINT:PRINT"I'M GOING TO PUNISH YOU BY TAKING"
  383. 3360 PRINT"AWAY YOUR AVAILABLE RAM MEMORY."
  384. 3370 FORI=38911TO0STEP-1
  385. 3380 PRINT""I
  386. 3390 NEXT
  387. 4000 GOSUB902
  388. 4010 PRINT"SCARE 'EM INTO THINKING THEY"
  389. 4020 PRINT"[145]DESTROYED YOUR COMPUTER."
  390. 4030 PRINT"[159]PREPARE TO RECIEVE KINDNESS AND/OR"
  391. 4040 PRINT"LOANS FROM YOUR VICTIMS."
  392. 4050 GETA$:IFA$=""THEN4050
  393. 4060 IFA$="M"THENRUN10
  394. 4070 IFA$="U"THEN4090
  395. 4080 GOTO4050
  396. 4090 GOSUB1381
  397. 4100 PRINT"READY."
  398. 4110 POKE19,54:INPUTA$
  399. 4120 POKE53280,0:POKE53281,0
  400. 4130 PRINT"[147][150]COMPUTER MALFUNCTION"
  401. 4140 FORR=54272TO54296:POKER,0:NEXT
  402. 4150 POKE54296,15:POKE54277,0:POKE54278,240:POKE54275,8:POKE54276,65
  403. 4160 POKE54272,12
  404. 4170 POKE54273,10
  405. 4180 FORI=1TO50
  406. 4190 PRINTSPC(I);"[157] [158][192]";:POKE54273,15:POKE54273,25
  407. 4200 NEXT:POKE54273,20:POKE53280,1
  408. 4300 FORD=1TO100:NEXT:PRINT"[150]COMPUTER MALFUNCTION":POKE53280,0:GOTO4180
  409. 4350 GOSUB902
  410. 4360 PRINT"[154]WITH THIS, YOU CAN ENTER YOUR"
  411. 4370 PRINT"[145]OWN PERSONAL MESSAGE TO BE SEEN"
  412. 4380 PRINT"AFTER THE USER HITS RETURN."
  413. 4390 PRINT"[158]IT WILL ALLOW UP TO 10 LINES."
  414. 4400 GETA$:IFA$=""THEN4400
  415. 4410 IFA$="M"THENRUN10
  416. 4420 IFA$="U"THEN4431
  417. 4430 GOTO4400
  418. 4431 PRINT"[147][159]YOU HAVE UP TO 10 LINES OF TEXT FOR"
  419. 4432 PRINT"YOUR MESSAGE.  HIT RETURN TO SKIP"
  420. 4433 PRINT"REMAINING LINES.  START ENTERING:"
  421. 4434 POKE19,54:FORI=0TO10:INPUTM$(I):PRINT:NEXT
  422. 4435 PRINT"[154]HIT ANY KEY TO START"
  423. 4436 GETA$:IFA$=""THEN4436
  424. 4440 GOSUB1381
  425. 4450 PRINT"READY."
  426. 4460 POKE19,54:INPUTA$
  427. 4470 PRINT:PRINT:FORI=0TO10:PRINTM$(I):NEXT
  428. 4474 POKE19,0
  429. 4475 END
  430. 4500 GOSUB902
  431. 4510 PRINT"[156]THIS WILL FREAK 'EM OUT BY"
  432. 4520 PRINT"[145]ALLOWING YOUR COMMODORE CONTROL"
  433. 4530 PRINT"ITSELF."
  434. 4540 PRINT"[158]IT WILL SEEM LIKE IT'S WRITING"
  435. 4550 PRINT"[145]AND EXECUTING A SMALL PROGRAM."
  436. 4560 GETA$:IFA$=""THEN4560
  437. 4570 IFA$="M"THENRUN10
  438. 4580 IFA$="U"THEN4600
  439. 4590 GOTO4560
  440. 4600 GOSUB1381
  441. 4610 PRINT"READY."
  442. 4620 POKE19,54:INPUTA$
  443. 4630 PRINT:A$="LET ME TAKE OVER NOW."
  444. 4635 GOTO4650
  445. 4640 FORI=1TOLEN(A$):PRINTMID$(A$,I,1);:FORD=1TO200
  446. 4642 NEXT:NEXT:PRINT:RETURN
  447. 4650 GOSUB4640:FORD=1TO300:NEXT
  448. 4660 PRINT:A$="10 PRINT"+CHR$(34)+"HELLO"+CHR$(34)
  449. 4670 GOSUB4640
  450. 4680 A$="20 GOTO 10"
  451. 4690 GOSUB4640
  452. 4691 PRINT:A$="RUN":GOSUB4640
  453. 4700 PRINT:FORD=1TO750:NEXT
  454. 4710 PRINT"HELLO"
  455. 4720 GOTO4710
  456. 4800 GOSUB902
  457. 4810 PRINT"[158]SCARE 'EM INTO THINKING THEY"
  458. 4820 PRINT"[145]BROKE INTO THE DEFENSE DEPARTMENT"
  459. 4830 PRINT"WITH YOUR MODEM."
  460. 4840 PRINT"[154]IF YOU DON'T HAVE A MODEM, THEY'LL"
  461. 4850 PRINT"[145]THINK YOU HAVE ONE."
  462. 4860 GETA$:IFA$=""THEN4860
  463. 4870 IFA$="M"THENRUN10
  464. 4880 IFA$="U"THEN4900
  465. 4890 GOTO4860
  466. 4900 GOSUB1381
  467. 4920 FORR=54272TO54296:POKER,0:NEXT
  468. 4930 POKE54296,15:POKE54277,0:POKE54278,240:POKE54275,8:POKE54276,65
  469. 4960 PRINT"READY.":POKE19,54:INPUTA$
  470. 4970 PRINT:PRINT"DIALING NORAD DEFENSE SYSTEMS...":POKE54272,12
  471. 4980 FORI=1TO4:FORJ=1TO25
  472. 4990 POKE54273,50:POKE54273,60
  473. 5000 FORD=1TO25:NEXT:NEXT:POKE54273,0:FORD=1TO750:NEXT:NEXT
  474. 5010 PRINT"CONNECT ON -- 9600 BPS"
  475. 5020 PRINT"** US GOVERNMENT DEFENSE SYSTEMS **"
  476. 5030 PRINT"PASSWORD:";
  477. 5040 POKE19,54:INPUTA$
  478. 5050 PRINT:PRINT"LOGON COMPLETE."
  479. 5060 PRINT"WELCOME, OFFICER NETTLES."
  480. 5070 PRINT"COMMAND:";
  481. 5080 POKE19,54:INPUTA$:PRINT
  482. 5090 PRINT"MISSLE SILOS ACTIVATED."
  483. 5100 FORD=1TO1000:NEXT
  484. 5110 PRINT"LAUNCH CONFIRMATION RECIEVED."
  485. 5120 FORD=1TO950:NEXT
  486. 5130 PRINT"LAUNCHING NUCLEAR WARHEAD #";INT(RND(1)*5000+1)+4000
  487. 5135 FORD=1TO1000:NEXT
  488. 5140 PRINT:GOTO5070
  489. 5200 GOSUB902
  490. 5210 PRINT"[158]EVERY TIME THE USER TYPES A"
  491. 5220 PRINT"[145]COMMAND, THE COMPUTER WILL MIX"
  492. 5230 PRINT"UP ONE OF HIS/HER CHARACTERS AND"
  493. 5240 PRINT"[145]GIVE 'EM A SYNTAX ERROR."
  494. 5250 PRINT"[159]IS THAT FRUSTRATION OR WHAT?"
  495. 5260 GETA$:IFA$=""THEN5260
  496. 5270 IFA$="M"THENRUN10
  497. 5280 IFA$="U"THEN5300
  498. 5290 GOTO5260
  499. 5300 GOSUB1381
  500. 5310 PRINT"READY."
  501. 5320 POKE19,54:INPUTA$:IFA$=""THENPRINT:GOTO5320
  502. 5330 L=LEN(A$)
  503. 5340 P=INT(RND(1)*L+1)
  504. 5350 C$=MID$(A$,P,1)
  505. 5360 H$=CHR$(ASC(C$)+1)
  506. 5370 PRINT:PRINTTAB(P-1)"[145]";H$
  507. 5380 PRINT:PRINT"?SYNTAX  ERROR"
  508. 5390 GOTO5310
  509. 5400 GOSUB902
  510. 5410 PRINT"[156]YOU ALWAYS WANTED TO HAVE AN"
  511. 5420 PRINT"[145]EARTHQUAKE OCCUR ON YOUR COMPUTER"
  512. 5430 PRINT"SCREEN, RIGHT?  HERE IT IS."
  513. 5440 PRINT"[159]8.2 ON THE RICHTER SCALE."
  514. 5450 GETA$:IFA$=""THEN5450
  515. 5460 IFA$="M"THENRUN10
  516. 5470 IFA$="U"THEN5490
  517. 5480 GOTO5450
  518. 5490 GOSUB1381
  519. 5500 PRINT"READY."
  520. 5510 POKE19,54:INPUTA$
  521. 5511 FORR=54272TO54296:POKER,0:NEXT
  522. 5512 POKE54296,15:POKE54277,0:POKE54278,240:POKE54275,8:POKE54276,129
  523. 5513 POKE54272,12
  524. 5514 POKE54273,1
  525. 5520 PRINT"INTERNAL MICRO-QUAKE!"
  526. 5530 IFO>5THENX=INT(RND(1)*10+1):O=O-(X/2):POKE54273,O
  527. 5540 IFO<10THENY=INT(RND(1)*10+1)+20:O=O+Y:POKE54273,O
  528. 5550 POKE53270,X:POKE53265,Y:GOTO5530
  529. 6000 IFPEEK(808)=237THEN6040
  530. 6010 PRINT""TAB(25)"[158]DISABLE STOP"
  531. 6020 POKE808,237:POKE54296,15:POKE54296,0
  532. 6030 GOTO290
  533. 6040 PRINT""TAB(25)"[158]ENABLE STOP "
  534. 6050 POKE808,234:POKE54296,15:POKE54296,0
  535. 6060 GOTO290
  536. 7000 M$="M A X I M U M  O V E R D R I V E"
  537. 7010 IFC=1THENPRINT""M$:FORD=1TO100:NEXT
  538. 7020 IFC=2THENPRINT"[155]"M$
  539. 7030 IFC=3THENPRINT"[152]"M$
  540. 7040 IFC=4THENPRINT"[151]"M$
  541. 7050 IFC=5THENPRINT"[152]"M$
  542. 7060 IFC=6THENPRINT"[155]"M$
  543. 7070 IFC=7THENC=0
  544. 7080 C=C+1:FORD=1TO25:NEXT:RETURN
  545.